home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0286.arc / STATE4.LTG < prev    next >
Text File  |  1986-02-03  |  512b  |  30 lines
  1.  
  2.                             Listing 4
  3.  
  4. $machine automata AWAKE ()ì
  5. $endargs
  6.  
  7.     int x;
  8.  
  9. $state AWAKE
  10.     if (TIRED == (x = input()))
  11.         $nextstate ASLEEP
  12.     else if (OLDAGE == x)
  13.         $nextstate DEAD
  14.     $nextstate AWAKEì
  15. $endstate AWAKE
  16.  
  17. $state ASLEEP
  18.     if (ALARMCLOCK == (x = input()))
  19.         $nextstate AWAKE
  20.     else if (OLDAGE == x)
  21.         $nextstate DEAD
  22.     $nextstate AWAKEì
  23. $endstate ASLEEP
  24.  
  25. $state DEAD
  26.     $nextstate terminalì
  27. $endstate DEAD
  28.  
  29. $endmachine automata
  30.